home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_8_general MIAW handlers.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  1.1 KB  |  48 lines
  1. global gCDPath, gSep, currFrontWindow, QTWindowRect
  2.  
  3. on moveTBWindowList
  4.   global QTWindowRect
  5.   set windowCount to count(the windowList)
  6.   if windowCount > 0 then
  7.     repeat with X = 1 to windowCount
  8.       set closeWin to string(getAt(the windowList, X))
  9.       set currWinRect to the rect of value(closeWin)
  10.       set checkRect to intersect(QTWindowRect, currWinRect)
  11.       if checkRect = rect(0, 0, 0, 0) then
  12.         next repeat
  13.       end if
  14.       tell the stage
  15.         moveToBack(value(closeWin))
  16.       end tell
  17.     end repeat
  18.   end if
  19. end
  20.  
  21. on setupCurrWindow
  22.   if not voidp(currFrontWindow) and not (currFrontWindow = EMPTY) then
  23.     moveToFront(window currFrontWindow)
  24.     if currFrontWindow = "notePad" then
  25.       tell window currFrontWindow
  26.         doInstallMenuNP()
  27.       end tell
  28.     end if
  29.   end if
  30. end
  31.  
  32. on cWindowlist
  33.   set windowCount to count(the windowList)
  34.   if windowCount > 0 then
  35.     repeat with X = 1 to windowCount
  36.       set forgetWin to string(getAt(the windowList, X))
  37.       tell the stage
  38.         close(value(forgetWin))
  39.       end tell
  40.     end repeat
  41.     set the windowList to []
  42.   end if
  43. end
  44.  
  45. on clearMIAWStuff
  46.   set currFrontWindow to EMPTY
  47. end
  48.